home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / text / edit / tecoc-146.lha / tstqr.tec < prev    next >
Text File  |  1991-07-05  |  3KB  |  100 lines
  1. ei
  2.     Test q-register commands
  3.  
  4. 
  5.  
  6. 1uaqa-1"nobadtest1'
  7. 2ubqb-2"nobadtest1'
  8. 3ucqc-3"nobadtest1'
  9. 4udqd-4"nobadtest1'
  10. 5ueqe-5"nobadtest1'
  11. 6ufqf-6"nobadtest1'
  12. 7ugqg-7"nobadtest1'
  13. 8uhqh-8"nobadtest1'
  14. 9uiqi-9"nobadtest1'
  15. 10ujqj-10"nobadtest1'
  16. 11ukqk-11"nobadtest1'
  17. 12ulql-12"nobadtest1'
  18. 13umqm-13"nobadtest1'
  19. 14unqn-14"nobadtest1'
  20. 15uoqo-15"nobadtest1'
  21. 16upqp-16"nobadtest1'
  22. 17uqqq-17"nobadtest1'
  23. 18urqr-18"nobadtest1'
  24. 19usqs-19"nobadtest1'
  25. 20utqt-20"nobadtest1'
  26. 21uuqu-21"nobadtest1'
  27. 22uvqv-22"nobadtest1'
  28. 23uwqw-23"nobadtest1'
  29. 24uxqx-24"nobadtest1'
  30. 25uyqy-25"nobadtest1'
  31. 26uzqz-26"nobadtest1'
  32. 1uAqA-1"nobadtest1'
  33. 2uBqB-2"nobadtest1'
  34. 3uCqC-3"nobadtest1'
  35. 4uDqD-4"nobadtest1'
  36. 5uEqE-5"nobadtest1'
  37. 6uFqF-6"nobadtest1'
  38. 7uGqG-7"nobadtest1'
  39. 8uHqH-8"nobadtest1'
  40. 9uIqI-9"nobadtest1'
  41. 10uJqJ-10"nobadtest1'
  42. 11uKqK-11"nobadtest1'
  43. 12uLqL-12"nobadtest1'
  44. 13uMqM-13"nobadtest1'
  45. 14uNqN-14"nobadtest1'
  46. 15uOqO-15"nobadtest1'
  47. 16uPqP-16"nobadtest1'
  48. 17uQqQ-17"nobadtest1'
  49. 18uRqR-18"nobadtest1'
  50. 19uSqS-19"nobadtest1'
  51. 20uTqT-20"nobadtest1'
  52. 21uUqU-21"nobadtest1'
  53. 22uVqV-22"nobadtest1'
  54. 23uWqW-23"nobadtest1'
  55. 24uXqX-24"nobadtest1'
  56. 25uYqY-25"nobadtest1'
  57. 26uZqZ-26"nobadtest1'
  58. -9u0q0+9"nobadtest1'
  59. -8u1q1+8"nobadtest1'
  60. -7u2q2+7"nobadtest1'
  61. -6u3q3+6"nobadtest1'
  62. -5u4q4+5"nobadtest1'
  63. -4u5q5+4"nobadtest1'
  64. -3u6q6+3"nobadtest1'
  65. -2u7q7+2"nobadtest1'
  66. -1u8q8+1"nobadtest1'
  67. 0u9q9"nobadtest1'
  68. 101,102ua-101"nobadtest1'qa-102"nobadtest1'
  69.     test 1 passed (basic U and Q commands work)13^T10^T
  70. otest1done
  71.  
  72. !badtest1!
  73.     test 1 failed.13^T10^T
  74. !test1done!
  75.  
  76. 10ua5ub2uc(qa+qb+qc)-17"e
  77.         test 2 passed (q-registers seem to work in expressions)13^T10^T
  78. |
  79.         test 2 failed13^T10^T
  80. '
  81.  
  82. ! This test helps to see what's really supposed to happen in TECO when
  83.   you do a :M command and then refer to local q-registers in the macro.
  84.   The correct behavior is to use the local q-registers from the previous
  85.   macro level,  if there are any.  If not,  use the ones from the previous
  86.   level,  etc.  The test verifies that three levels deep,  values from
  87.   level 1 can be accessed if no intervening levels have local q-registers.
  88. !
  89. ?10u.n                     ! put 10 in main-level q-register .n !
  90. @^U1/20u.n:m2/27:^U1    ! put 20u.n$:m2$$ in q-register 1 !
  91. @^U2/:m3/27:^U2          ! put :m3$$ in q-register 2 !
  92. @^U3/q.n/27:^U3          ! put q.n=$$ into q-register 3 !
  93. m1-20"e
  94.         test 3 passed (:M commands use old local q-registers)13^T10^T
  95. |
  96.         test 3 failed13^T10^T
  97. '
  98. ex
  99.  
  100.